(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    251465,       4831]
NotebookOptionsPosition[    245841,       4639]
NotebookOutlinePosition[    247213,       4685]
CellTagsIndexPosition[    247106,       4679]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Convert the digital signal (dataset) into a continuous function 
(D-A conversion)\
\>", "MainTitle",
 CellChangeTimes->{{3.413454371744011*^9, 3.413454378673976*^9}, {
   3.4134544243997264`*^9, 3.4134544498363028`*^9}, {3.413454504805344*^9, 
   3.413454541277789*^9}, {3.41347048347281*^9, 3.4134704905029182`*^9}, {
   3.4134705992292595`*^9, 3.4134706022836514`*^9}, {3.663079418413989*^9, 
   3.663079472650916*^9}, {3.6630795067775297`*^9, 3.6630795134184637`*^9}, 
   3.6630820289560575`*^9, 3.6647824792608967`*^9},
 CellTags->"part-1"],

Cell[CellGroupData[{

Cell[" Interpolation: problem and summary", "MainSection",
 CellChangeTimes->{{3.664781919914669*^9, 3.6647819481501527`*^9}, {
  3.6647834682834826`*^9, 3.664783477553496*^9}}],

Cell["The data series ", "Text",
 CellChangeTimes->{{3.66478195358016*^9, 3.6647819779601946`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["x", "i"], ",", 
       RowBox[{"f", "(", 
        SubscriptBox["x", "i"], ")"}], ",", 
       RowBox[{
        RowBox[{"f", "'"}], 
        RowBox[{"(", 
         SubscriptBox["x", "i"], ")"}]}], ",", "...", ",", " ", 
       RowBox[{
        SuperscriptBox["f", 
         RowBox[{"(", "k", ")"}]], "(", 
        SubscriptBox["x", "i"], ")"}]}], "}"}], ",", " ", 
     RowBox[{"i", "=", "1"}], ",", "...", ",", 
     RowBox[{"n", ";", " ", 
      RowBox[{"k", "\[GreaterEqual]", "0"}]}]}], "}"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " "
}], "Text",
 CellChangeTimes->{{3.66478195358016*^9, 3.664782106930375*^9}, {
  3.664782614174861*^9, 3.6647826187061205`*^9}}],

Cell["\<\
is given. Find a function (polynomial, piecewise polynomial typically) which \
takes the values in the data set.\
\>", "Text",
 CellChangeTimes->{{3.66478195358016*^9, 3.664782250410576*^9}}],

Cell[CellGroupData[{

Cell["Special cases", "Section",
 CellChangeTimes->{{3.664782345560709*^9, 3.6647823630907335`*^9}, 
   3.664783413953407*^9}],

Cell[CellGroupData[{

Cell["Lagrange", "Subsection",
 CellChangeTimes->{{3.6647823996407847`*^9, 3.6647824095107985`*^9}}],

Cell["\<\
 FInd a polynomial of n\[CloseCurlyQuote]th order which passes through the \
points:\
\>", "Text",
 CellChangeTimes->{{3.664782416720809*^9, 3.6647824602708693`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox["x", "i"], ",", 
        SubscriptBox["y", "i"]}], "}"}], ",", " ", 
      RowBox[{"i", "=", "1"}], ",", "...", ",", "n"}], "}"}], "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox["x", "i"], ",", 
        RowBox[{"f", "(", 
         SubscriptBox["x", "i"], ")"}]}], "}"}], ",", " ", 
      RowBox[{"i", "=", "1"}], ",", "...", ",", "n"}], "}"}]}], 
   TraditionalForm]],
  FormatType->"TraditionalForm"],
 " "
}], "Text",
 CellChangeTimes->{{3.664782416720809*^9, 3.6647824705108843`*^9}, {
  3.6647825934686766`*^9, 3.6647826470497417`*^9}}],

Cell["Solution", "Th-Env",
 CellChangeTimes->{{3.664782416720809*^9, 3.6647824705108843`*^9}, {
  3.6647825934686766`*^9, 3.6647826527180657`*^9}}],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox["I", 
     RowBox[{"n", "-", "1"}]], "(", "x", ")"}], "=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"i", "=", "1"}], "n"], 
    RowBox[{
     SubscriptBox["y", "i"], 
     RowBox[{
      UnderscriptBox["\[Product]", 
       RowBox[{"j", "\[NotEqual]", "i"}]], 
      FractionBox[
       RowBox[{"x", "-", 
        SubscriptBox["x", "j"]}], 
       RowBox[{
        SubscriptBox["x", "i"], "-", 
        SubscriptBox["x", "j"]}]]}]}]}]}], TraditionalForm]],
 FormatType->"TraditionalForm"]], "Text",
 CellChangeTimes->{{3.664782416720809*^9, 3.6647824705108843`*^9}, {
  3.6647825934686766`*^9, 3.664782791452509*^9}, {3.6647828618126073`*^9, 
  3.6647828826726365`*^9}}]
}, Open  ]],

Cell["Step function", "Subsection",
 CellChangeTimes->{{3.664782367000739*^9, 3.6647824095107985`*^9}}],

Cell["Piecewise linear", "Subsection",
 CellChangeTimes->{{3.664782367000739*^9, 3.6647824095107985`*^9}}],

Cell[CellGroupData[{

Cell["Piecewise cubic spline", "Subsection",
 CellChangeTimes->{{3.664782367000739*^9, 3.6647824095107985`*^9}, {
  3.664782946602726*^9, 3.6647829490427294`*^9}, {3.66478335914333*^9, 
  3.66478337338335*^9}}],

Cell["\<\
 Second derivative of the interpolating function is continuous!\
\>", "Text",
 CellChangeTimes->{{3.6647829833610697`*^9, 3.664783025593486*^9}}]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell[TextData[{
 "Interpolations in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " (piecewise methods)"
}], "MainSection",
 CellChangeTimes->{{3.6630800352221127`*^9, 3.6630800511447425`*^9}, {
   3.663080157446235*^9, 3.6630801589150505`*^9}, 3.6630813225628495`*^9, {
   3.66308175292638*^9, 3.663081787990533*^9}, {3.6630819956107454`*^9, 
   3.6630820075956545`*^9}, {3.6647819144953585`*^9, 
   3.6647819187095995`*^9}, {3.664783490583514*^9, 3.6647835118735437`*^9}}],

Cell[TextData[{
 "The points of the data set are connected by an appropriate function.\n\
Interpolation in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is more sophisticated than the known Lagrange or Hermite interpolation \
(Numerical math course later). \nHermite os Spline interpolation can be used \
piecewise. "
}], "Text",
 CellChangeTimes->{{3.6630804049766436`*^9, 3.663080456604082*^9}, {
  3.6630807726648445`*^9, 3.663080849668091*^9}, {3.6630816946424675`*^9, 
  3.6630817768493886`*^9}, {3.6640466259686728`*^9, 3.664046644032028*^9}}],

Cell[CellGroupData[{

Cell["Preparation", "Section",
 CellChangeTimes->{{3.664783521053557*^9, 3.6647835308035707`*^9}}],

Cell[CellGroupData[{

Cell["Digitalize and save the analogous signal", "Subsection",
 CellChangeTimes->{{3.413453734908286*^9, 3.413453738833931*^9}, {
  3.6630795666553497`*^9, 3.6630795811869516`*^9}, {3.663079798712512*^9, 
  3.6630798020095425`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"analogsignal", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"Pi", " ", "t"}], "]"}], "+", 
    RowBox[{"0.3", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"5", "Pi", " ", "t"}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6630796442524233`*^9, 3.6630796723474874`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"analogsignal", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6630796765664377`*^9, 3.663079690957748*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwUV3k81F8XFhVFi7InCkn2SiXbUQqhku0nURJZimxZK1Qke5aUJHvWkkoi
[encoded data, 24480 characters]
huxH1lq/8imwuLySlrKJA3cVNi5RFF1PyZul2ns58H8QmGHS
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 2}, {-1.2567174392745, 1.2567175448910282`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6630796917858906`*^9, 3.6647830551019044`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dt", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"signal", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"analogsignal", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2", ",", "dt"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.663079586796583*^9, 3.663079634361329*^9}, 
   3.6630797066772385`*^9, {3.663079738069343*^9, 3.6630797608201027`*^9}, {
   3.663080977236586*^9, 3.6630809780647507`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "signal", "]"}]], "Input",
 CellChangeTimes->{{3.6630797745863667`*^9, 3.663079783430542*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQPGYHDZftZMENhp7/9S3/z9MRj/pH1n4/arQtmX
7E2g6lZ9mT67/PFLqPxNe5/vedeCWb7YQ0x7AKU/QNU/tk/bvaqy5OoT+/Q0
EHhmvwZF/0v7H5/55u3JeGN/9gwIvLEPgdoPM8cQYu9+iPqP9kkQ+f0Q8z/b
90Lctx+i/wvMffsh9n2DuW8/xLwf9iwQc6Hm/YS5D2reb/tlUP0Q8/7Y/4K4
D2reP/sUqP3Q4HPQh4YLAOq4oKs=
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 2.}, {-1.2510565162951535`, 1.2510565162951535`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6630797844149413`*^9, 3.663080982830583*^9, 
  3.663081043082019*^9, 3.6647830551819043`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.663079808978613*^9, 3.663079834292307*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParentDirectory", "[", 
  "\"\<K:\\\\ACTUAL\\\\OKTATAS\\\\2016-tematika-aktualis\\\\2016-Mat-modellek\
\\\\2016-Mat-Modell-Lecture\>\"", "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData["\<\"K:\\\\ACTUAL\\\\OKTATAS\\\\2016-tematika-aktualis\\\\2016-\
Mat-modellek\"\>"], "Output",
 CellChangeTimes->{3.664783075531933*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<data//signal.xlsx\>\"", ",", "signal"}], "]"}]], "Input",
 CellChangeTimes->{{3.663079849621154*^9, 3.663079887826089*^9}}],

Cell[BoxData["\<\"data//signal.xlsx\"\>"], "Output",
 CellChangeTimes->{
  3.6630798997016244`*^9, 3.6630809943155136`*^9, {3.6630810485822926`*^9, 
   3.6630810563326416`*^9}, 3.6630810896154604`*^9, 3.6647830583119087`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Data import from Excel", "Subsection",
 CellChangeTimes->{{3.413453734908286*^9, 3.413453738833931*^9}, {
  3.663079945452281*^9, 3.663079948061776*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.663079808978613*^9, 3.663079834292307*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data", "=", 
  RowBox[{
   RowBox[{"Import", "[", "\"\<data//signal.xlsx\>\"", "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.663079849621154*^9, 3.663079887826089*^9}, {
  3.663079982391522*^9, 3.6630800058457427`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.3`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.1`", ",", "0.3090169943749474`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.2`", ",", "0.28778525229247315`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.30000000000000004`", ",", "0.8090169943749477`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4`", ",", "1.2510565162951535`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "1.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6000000000000001`", ",", "0.6510565162951536`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7000000000000001`", ",", "0.8090169943749479`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8`", ",", "0.8877852522924732`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9`", ",", "0.3090169943749477`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", 
     RowBox[{"-", "0.2999999999999999`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1`", ",", 
     RowBox[{"-", "0.30901699437494845`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2000000000000002`", ",", 
     RowBox[{"-", "0.28778525229247337`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.3`", ",", 
     RowBox[{"-", "0.8090169943749477`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4000000000000001`", ",", 
     RowBox[{"-", "1.2510565162951535`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5`", ",", 
     RowBox[{"-", "1.0000000000000009`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6`", ",", 
     RowBox[{"-", "0.6510565162951536`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.7000000000000002`", ",", 
     RowBox[{"-", "0.8090169943749472`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.8`", ",", 
     RowBox[{"-", "0.8877852522924734`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9000000000000001`", ",", 
     RowBox[{"-", "0.30901699437494856`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.`", ",", "0.29999999999999977`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.6630798997016244`*^9, {3.6630799992204175`*^9, 3.6630800070332813`*^9}, 
   3.663081118163678*^9, 3.6640467090663166`*^9, 3.6647830916319556`*^9}]
}, Open  ]],

Cell["First we recall how to fill in lists of experimental data.", "Text",
 CellChangeTimes->{{3.4134537016104064`*^9, 3.413453714418824*^9}, {
  3.4134539626056995`*^9, 3.4134539796301794`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Plot the data set", "Subsection",
 CellChangeTimes->{{3.663080093240494*^9, 3.6630800996470456`*^9}}],

Cell[TextData[{
 "Use ",
 StyleBox[ButtonBox["ListPlot",
  BaseStyle->"MainBookLink"],
  FontFamily->"Courier"],
 " to plot the list ",
 StyleBox["data",
  FontFamily->"Courier"],
 " that has the structure ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FormBox[
        SubscriptBox["x", "1"],
        TraditionalForm], ",", 
       FormBox[
        SubscriptBox["y", "1"],
        TraditionalForm]}], "}"}], ",", "..."}], "}"}], TraditionalForm]]],
 ". "
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "data", "]"}]], "Input",
 PageWidth->Infinity,
 InitializationCell->True,
 CellChangeTimes->{
  3.3627640552343*^9, {3.399447838150696*^9, 3.3994478386213727`*^9}, {
   3.663080188728959*^9, 3.663080189150849*^9}},
 AspectRatioFixed->True],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQPGYHDZftZMENhp7/9S3/z9MRj/pH1n4/arQtmX
7E2g6lZ9mT67/PFLqPxNe5/vedeCWb7YQ0x7AKU/QNU/tk/bvaqy5OoT+/Q0
EHhmvwZF/0v7H5/55u3JeGN/9gwIvLEPgdoPM8cQYu9+iPqP9kkQ+f0Q8z/b
90Lctx+i/wvMffsh9n2DuW8/xLwf9iwQc6Hm/YS5D2reb/tlUP0Q8/7Y/4K4
D2reP/sUqP3Q4HPQh4YLAOq4oKs=
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 2.}, {-1.2510565162951535`, 1.2510565162951535`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.36276405598538*^9, {3.3994478432179823`*^9, 3.3994478652496624`*^9}, {
   3.66308018227551*^9, 3.6630801900258694`*^9}, {3.663080994987402*^9, 
   3.663080997003126*^9}, {3.663081052457458*^9, 3.663081058442116*^9}, 
   3.663081120866932*^9, 3.6640467011909494`*^9, 3.664783095421961*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"data", ",", " ", 
   StyleBox[
    RowBox[{"Joined", "->", "True"}],
    FontColor->RGBColor[0, 0, 1]], 
   StyleBox[",",
    FontColor->RGBColor[0, 0, 1]], 
   StyleBox[
    RowBox[{"ColorFunction", "->", "Hue"}],
    FontColor->RGBColor[0, 0, 1]]}], "]"}]], "Input",
 PageWidth->Infinity,
 InitializationCell->True,
 CellChangeTimes->{
  3.3627640552343*^9, {3.399447838150696*^9, 3.3994478386213727`*^9}, {
   3.399448081380443*^9, 3.3994480963619857`*^9}},
 AspectRatioFixed->True],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJw1ktErQ3EUx29rzx78A3gRTwurldTXswibvOxtzSZq9jDGA6XmgZI3C/E4
WfNEaaGr1KIQZtOiTNu0ZZvN7myGi+2ce+r269c953N+5/P7NZkm9CMqQRBa
/7/qqkRHLYJYX6vGDlT7hrx79Z73fvSnNLq3QBDaWt4p7NtLD7riFf8/x+L8
Qah+/BZEu4Y+M7fi3X3i/CC8knvDGUvBaqlGGGfT8qbDk+f6CHpLtrBBLeHy
ohqPOLlzRqbaC8yL8prj/Gd0NtgnjTdJ5sdgOfTOOEJxro+jxzorD/sT3O8F
Pu5PnCSyAhasYxnmpVAu1G0djaaZ94pGrUkbHUgwL40hnp94WbSojX1ml09U
ztVGc4qUn4O8V/MnEj8PE9WLVP8OG/kTqV8By+SPeRIGyR/zJMUf84oIkD/m
fSj+mFfCMfljXhlqOifzyugif8z7VPwxr6L4Y94XPNyfeN+KP+Z9o0L+mPeD
ZvLHPBlmnp94v3CRP74PoVvD7+QPE8dARQ==
    "], {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
       19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36,
        37, 38, 39, 40, 41},
       VertexColors->Automatic]}},
    VertexColors->{
      Hue[0.6198986600894787], 
      Hue[0.6473020981049116], 
      Hue[0.6235024119014473], 
      Hue[0.5966616864359637], 
      Hue[0.6150168871446003], 
      Hue[0.6978226964103863], 
      Hue[0.8233335120505785], 
      Hue[0.9408827835416813], 
      Hue[1.], 
      Hue[0.9795228510156436], 
      Hue[0.8996622002982624], 
      Hue[0.8099605398067411], 
      Hue[0.7602026798210426], 
      Hue[0.7713204723327789], 
      Hue[0.8233335120505787], 
      Hue[0.8673850076192887], 
      Hue[0.8548142073235578], 
      Hue[0.766223997644866], 
      Hue[0.6235024119014474], 
      Hue[0.4777397868960092], 
      Hue[0.3801013399105213], 
      Hue[0.35269790189508854`], 
      Hue[0.3764975880985523], 
      Hue[0.4033383135640363], 
      Hue[0.38498311285539955`], 
      Hue[0.3021773035896137], 
      Hue[0.17666648794942147`], 
      Hue[0.05911721645831891], 
      Hue[0.], 
      Hue[0.020477148984356652`], 
      Hue[0.10033779970173728`], 
      Hue[0.19003946019325874`], 
      Hue[0.23979732017895738`], 
      Hue[0.22867952766722116`], 
      Hue[0.17666648794942164`], 
      Hue[0.13261499238071128`], 
      Hue[0.1451857926764421], 
      Hue[0.23377600235513368`], 
      Hue[0.37649758809855227`], 
      Hue[0.5222602131039911], 
      Hue[0.6198986600894786]}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 2.}, {-1.2510565162951535`, 1.2510565162951535`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.399448093137349*^9, 3.399448097173152*^9}, 
   3.6630801984325204`*^9, 3.663081002800274*^9, 3.663081123945203*^9, 
   3.66404670144096*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Interpolation with piecewise cubic Hermite  (default)", "Section",
 CellChangeTimes->{{3.663080233637317*^9, 3.6630802550602007`*^9}, 
   3.663080396569996*^9, {3.6647824967209206`*^9, 3.6647825437709866`*^9}, {
   3.6647829147826815`*^9, 3.6647829194926877`*^9}, {3.664782952492734*^9, 
   3.664782953002735*^9}, {3.6647834278334265`*^9, 3.6647834297534285`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterpolatingSignal", "=", 
  RowBox[{"Interpolation", "[", 
   RowBox[{"data", ",", 
    RowBox[{"InterpolationOrder", "\[Rule]", "4"}], ",", 
    RowBox[{"Method", "\[Rule]", "\"\<Hermite\>\""}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6630802600135603`*^9, 3.663080267295153*^9}, {
   3.663080357161897*^9, 3.6630803708031645`*^9}, {3.6647831116219835`*^9, 
   3.664783118861994*^9}, {3.6647831910520945`*^9, 3.6647831915120955`*^9}, 
   3.664783222462139*^9}],

Cell[BoxData[
 TagBox[
  TemplateBox[{RowBox[{
      StyleBox[
       TagBox["InterpolatingFunction", "SummaryHead"], 
       "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{Typeset`open$$ = False}, 
       PanelBox[
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{}, {}, {
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAotpLlPIyYj6DXifuMzPTP3zLgjFp
saA/61TatQT72D8zeMj4ImWxPxBtwzBpr9c/TO2n0Q/YuT9jwj5vlqfTP/lc
W4xHEME/YOA0soAo0D/5Y1FcZI7FP+IGHLisnc4/S5yzaMC/yT+40tLkP6/S
P0p1hKH5Ss4/uQD3vJS73D8IfbYIfmDRP4kjB/dCiOQ/FNjg3h510z8NES+V
2cPqP3aDQkuuttU/bm7ZnubY8D+BR9pV3dHXPxP+yLpVGfM/b+H9+3Di2T+v
4qYXBgH0P7TLWDjzH9w/q3TMED478z+izukSFTfeP02Ueh1TsPE/8xDZwZI9
4D8dlRnj0szuP4YlA0hNWuE/9uCGtSis6T9uRkid12PiPzZzKVXkO+Y/gQ+p
PdmD4z9Tw76MEuvkP+nkJK2qkOQ/HDFwQkoa5j98Yrxn87PlP2bnjX7KW+g/
AMsZcO7R5j9IrblEOibrP9k/kke53Oc/4ADNMNxd7T/dXCZq+/3oP4ZEW1Rl
hO0/NobVWw0M6j93TMCL+KDqP4CaSpvRFOs/auBrEZw85T/1VtslDTTsP9gc
DmeXCdw/vx+HfxhA7T9+Cm8sDFLJP7SQTiSbYu4/+GKER3rQrL+b7NsW0H/v
P+H2SZPdBM+/bCpCbOpE8D/OfgU+J/7Uv58ypHIo1fA/rbN81Zf91b/9wJNg
zlvxPzbN2UhQttS/00Rmdc3f8T+elK47TrLRv7+cxi8Ib/I/4oSCuUdozr/V
erTRqvTyP7LbNArradC/AS0wGYmF8z8aGY7MRJ/Xv1dlOUjPDPQ/VCyyCN0t
4b8mkyWebpH0P9KvR90JKee/C5WfmUkh9T8ZC5gwPzvuvxodp3yMp/U/NWWf
sIH08b8+eTwFCzn2P1GQWphpxPO/28q0tOLH9j/Ovwszbrbzv6KiuksiTfc/
Irhh1t+C8r9/Tk6Ind33P+N4Ej/fh/C/hoBvrIBk+D/W9b+k9insvwaoc/e8
6Pg/4lmGO3vs57+cowXoNHj5P98uJ4a/JuW/XCUlwBT++T9hzuOQEEzlvzJ7
0j0wj/o/hC/Em5If57+AxmLipB37P4x5d2TQhem/+ZeAboGi+z+9BO/su0zs
v4c9LKCZMvw/HbkT/MTG7b9AaWW5Gbn8P49QEnyoxey/DmkseNVK/T/Qj2Za
/cbov1Ve1l3q2f0/4yi52xor4r/G2Q0rZ1/+P2XAJ0Q0ptS/TSnTnR/w/j+I
lCmxcjelv/7+Jfg/d/8/CmI1QixBxz+2hub2////P8OO1gkzM9M/jxn/Ug==

                   "]]}}}, {
               DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                  AbsolutePointSize[6], "ScalingFunctions" -> None}, 
                PlotRange -> {{0., 2.}, {-1.2354522658652238`, 
                 1.2502499507810787`}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "2.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{}, {}, {
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAotpLlPIyYj6DXifuMzPTP3zLgjFp
saA/61TatQT72D8zeMj4ImWxPxBtwzBpr9c/TO2n0Q/YuT9jwj5vlqfTP/lc
W4xHEME/YOA0soAo0D/5Y1FcZI7FP+IGHLisnc4/S5yzaMC/yT+40tLkP6/S
P0p1hKH5Ss4/uQD3vJS73D8IfbYIfmDRP4kjB/dCiOQ/FNjg3h510z8NES+V
2cPqP3aDQkuuttU/bm7ZnubY8D+BR9pV3dHXPxP+yLpVGfM/b+H9+3Di2T+v
4qYXBgH0P7TLWDjzH9w/q3TMED478z+izukSFTfeP02Ueh1TsPE/8xDZwZI9
4D8dlRnj0szuP4YlA0hNWuE/9uCGtSis6T9uRkid12PiPzZzKVXkO+Y/gQ+p
PdmD4z9Tw76MEuvkP+nkJK2qkOQ/HDFwQkoa5j98Yrxn87PlP2bnjX7KW+g/
AMsZcO7R5j9IrblEOibrP9k/kke53Oc/4ADNMNxd7T/dXCZq+/3oP4ZEW1Rl
hO0/NobVWw0M6j93TMCL+KDqP4CaSpvRFOs/auBrEZw85T/1VtslDTTsP9gc
DmeXCdw/vx+HfxhA7T9+Cm8sDFLJP7SQTiSbYu4/+GKER3rQrL+b7NsW0H/v
P+H2SZPdBM+/bCpCbOpE8D/OfgU+J/7Uv58ypHIo1fA/rbN81Zf91b/9wJNg
zlvxPzbN2UhQttS/00Rmdc3f8T+elK47TrLRv7+cxi8Ib/I/4oSCuUdozr/V
erTRqvTyP7LbNArradC/AS0wGYmF8z8aGY7MRJ/Xv1dlOUjPDPQ/VCyyCN0t
4b8mkyWebpH0P9KvR90JKee/C5WfmUkh9T8ZC5gwPzvuvxodp3yMp/U/NWWf
sIH08b8+eTwFCzn2P1GQWphpxPO/28q0tOLH9j/Ovwszbrbzv6KiuksiTfc/
Irhh1t+C8r9/Tk6Ind33P+N4Ej/fh/C/hoBvrIBk+D/W9b+k9insvwaoc/e8
6Pg/4lmGO3vs57+cowXoNHj5P98uJ4a/JuW/XCUlwBT++T9hzuOQEEzlvzJ7
0j0wj/o/hC/Em5If57+AxmLipB37P4x5d2TQhem/+ZeAboGi+z+9BO/su0zs
v4c9LKCZMvw/HbkT/MTG7b9AaWW5Gbn8P49QEnyoxey/DmkseNVK/T/Qj2Za
/cbov1Ve1l3q2f0/4yi52xor4r/G2Q0rZ1/+P2XAJ0Q0ptS/TSnTnR/w/j+I
lCmxcjelv/7+Jfg/d/8/CmI1QixBxz+2hub2////P8OO1gkzM9M/jxn/Ug==

                   "]]}}}, {
               DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                  AbsolutePointSize[6], "ScalingFunctions" -> None}, 
                PlotRange -> {{0., 2.}, {-1.2354522658652238`, 
                 1.2502499507810787`}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "2.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["4", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> 
        Baseline], DynamicModuleValues :> {}], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->("InterpolatingFunction[{{0., 2.}}, <>]"& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.6630803587556963`*^9, 3.6630803739907937`*^9}, 
   3.663081006597329*^9, 3.663081127820384*^9, {3.6647831023619704`*^9, 
   3.6647831206519957`*^9}, 3.6647831924020967`*^9, 3.6647832236621404`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterpolatingSignal", "[", "0.15", "]"}]], "Input",
 CellChangeTimes->{{3.6630804647450867`*^9, 3.6630804746205564`*^9}}],

Cell[BoxData["0.2383947033609839`"], "Output",
 CellChangeTimes->{
  3.6630804757455835`*^9, 3.6630810086911764`*^9, {3.664783104071973*^9, 
   3.664783123362*^9}, 3.664783195412101*^9, 3.6647832260221434`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "data", "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"InterpolatingSignal", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.663080483416858*^9, 3.6630805613580337`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQPGYHDZftZMENhp7/9S3/z9MRj/pH1n4/arQtmX
7E2g6lZ9mT67/PFLqPxNe5/vedeCWb7YQ0x7AKU/QNU/tk/bvaqy5OoT+/Q0
EHhmvwZF/0v7H5/55u3JeGN/9gwIvLEPgdoPM8cQYu9+iPqP9kkQ+f0Q8z/b
90Lctx+i/wvMffsh9n2DuW8/xLwf9iwQc6Hm/YS5D2reb/tlUP0Q8/7Y/4K4
D2reP/sUqP3Q4HPQh4YLAOq4oKs=
       "]]}, {}}, {}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwUV3k8lN8XthRCCSVKUSFZW0gpjmRLKWupyFakIttXi6XFkiKE7IlsWYok
[encoded data, 24480 characters]
iuJLFEXBvUSXVdraHfB/lmhPkg==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 2.}, {-1.2510565162951535`, 1.2510565162951535`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6630804981987896`*^9, 3.6630805183091125`*^9}, {
   3.6630805507012644`*^9, 3.6630805623580637`*^9}, 3.6630810103006287`*^9, 
   3.6630811297110963`*^9, {3.6647831056819754`*^9, 3.664783125182002*^9}, 
   3.664783196942103*^9, 3.664783227802146*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"InterpolatingSignal", "'"}], "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.663080580499545*^9, 3.6630805983753953`*^9}, {
  3.664783138262021*^9, 3.6647831463820324`*^9}, {3.6647832111421227`*^9, 
  3.664783262202194*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwUVwk0ld8XfeZ5Hp4pQ+aSZEqS86USv6hIpUJEIhVJoiIiKRlCMqVClFSU
[encoded data, 27840 characters]
MlhS00KhENYmX+XkLP8L/wOukyxs
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 2}, {-7.9854450533774655`, 8.056313226555984}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.664783250402178*^9, 3.664783263472196*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Be careful!!!!", "Subsection",
 CellChangeTimes->{{3.663080605422599*^9, 3.6630806187982454`*^9}}],

Cell[" Do not go beyond the given interval!!! Extrapolation!!!!", "Text",
 CellChangeTimes->{{3.663080636205306*^9, 3.663080684832583*^9}, {
  3.663081137758374*^9, 3.6630811460087605`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"InterpolatingSignal", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.663080669503734*^9, 3.663080674503969*^9}, {
  3.663081140930399*^9, 3.663081143914913*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVV3k8lN8XHnuWsqZki6RCKkQpzksSSUmkIsmehBSplCUt35IkW/YtSRKR
[encoded data, 21180 characters]
B1IJlZg=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 3}, {-46.44722175135331, 1.2510365319090915`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6630806705193853`*^9, 3.663080675066474*^9}, 
   3.663081016347787*^9, 3.6630811486026134`*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Join the points by lines (piecewise linear function)", "Section",
 CellChangeTimes->{{3.663080233637317*^9, 3.6630802550602007`*^9}, 
   3.663080396569996*^9, {3.6630808727785454`*^9, 3.6630808884824104`*^9}, 
   3.664046673142771*^9}],

Cell["\<\
The points are connected by straight lines. The simplest approximation due to \
Euler:\
\>", "Text",
 CellChangeTimes->{{3.6630804049766436`*^9, 3.663080456604082*^9}, {
  3.6630807726648445`*^9, 3.663080849668091*^9}, {3.6630808964515314`*^9, 
  3.6630809349689746`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EulerSignal", "=", 
  RowBox[{"Interpolation", "[", 
   RowBox[{"data", ",", 
    RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6630802600135603`*^9, 3.663080267295153*^9}, {
  3.663080357161897*^9, 3.6630803708031645`*^9}, {3.6630809383597517`*^9, 
  3.663080949407151*^9}}],

Cell[BoxData[
 TagBox[
  TemplateBox[{RowBox[{
      StyleBox[
       TagBox["InterpolatingFunction", "SummaryHead"], 
       "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{Typeset`open$$ = False}, 
       PanelBox[
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[{{{}, {}, {
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAotpLlPIyYj7iZHs2MzPTP3zLgjFp
saA/QWXz3F1j0z8zeMj4ImWxP70mcrOVl9M/TO2n0Q/YuT+qUw53nsPTP/lc
W4xHEME/vbZJexBT0z/5Y1FcZI7FP7DZbkz42NI/S5yzaMC/yT/seWywgM7S
P0p1hKH5Ss4/XSI4PQym3j8IfbYIfmDRPxGrqCYnI+U/FNjg3h510z+Ow7Us
KnXqP3aDQkuuttU/3nvA4K9x7z+BR9pV3dHXP+rguOCxDPI/b+H9+3Di2T/X
9iD4m9bzP7TLWDjzH9w/XeJByKZu8j+izukSFTfePwbhdcjHHvE/8xDZwZI9
4D9SBsbiJCnvP4YlA0hNWuE/463dJppH6z9uRkid12PiPzLlLDAEqec/gQ+p
PdmD4z8JXGMP2VTlP+nkJK2qkOQ/tvcCaXn95j98Yrxn87PlPztp5IeWyeg/
AMsZcO7R5j9+aLP2KjjqP9k/kke53Oc/93V9xVAK6z/dXCZq+/3oP4sL2MUo
7us/NobVWw0M6j/T0QzqUtLpP4CaSpvRFOs/2kS5WvDV4z/1VtslDTTsP+DN
lUQOr9o/vx+HfxhA7T+mlMX1L5XMP7SQTiSbYu4/AN+qzBAFfj+b7NsW0H/v
PxfQ+4GsM8q/bCpCbOpE8D/13hF3DkzTv58ypHIo1fA/Q6577xSA07/9wJNg
zlvxPwdHuIqlsNO/00Rmdc3f8T98rMtCUIvTv7+cxi8Ib/I/WtAGUqwR07/V
erTRqvTyP3SHcUQuoNK/AS0wGYmF8z+wiGyftR/Zv1dlOUjPDPQ/mnLQ1AkS
4r8mkyWebpH0P4dmkRuUeOe/C5WfmUkh9T/m9PxLZ87svxodp3yMp/U/iH1g
jbC48L8+eTwFCzn2PzGOdPPUO/O/28q0tOLH9j8mv81nlQ/zv6KiuksiTfc/
XchACQ7B8b9/Tk6Ind33P+G7GytTVvC/hoBvrIBk+D+2dLLwmkLtvwaoc/e8
6Pg/XILwMsCn6b+cowXoNHj5P13KuLGAvuW/XCUlwBT++T84m2lM5RLmvzJ7
0j0wj/o/GWHLAVLd57+AxmLipB37P3eWlRden+m/+ZeAboGi+z9UaXNt0JLq
v4c9LKCZMvw/ey2czdB1679AaWW5Gbn8P5XHd+6zSey/DmkseNVK/T+m431J
2bXmv1Ve1l3q2f0/snBxbaA94L/G2Q0rZ1/+P0/UVYrraNS/TSnTnR/w/j/Y
W33Rla+6v/7+Jfg/d/8/IHHlGX+/uD+2hub2////P5Cih1UyM9M/lvsHHA==

                   "]]}}}, {
               DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                  AbsolutePointSize[6], "ScalingFunctions" -> None}, 
                PlotRange -> {{0., 2.}, {-1.2021073827717255`, 
                 1.2398948376207295`}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "2.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[{{{}, {}, {
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAotpLlPIyYj7iZHs2MzPTP3zLgjFp
saA/QWXz3F1j0z8zeMj4ImWxP70mcrOVl9M/TO2n0Q/YuT+qUw53nsPTP/lc
W4xHEME/vbZJexBT0z/5Y1FcZI7FP7DZbkz42NI/S5yzaMC/yT/seWywgM7S
P0p1hKH5Ss4/XSI4PQym3j8IfbYIfmDRPxGrqCYnI+U/FNjg3h510z+Ow7Us
KnXqP3aDQkuuttU/3nvA4K9x7z+BR9pV3dHXP+rguOCxDPI/b+H9+3Di2T/X
9iD4m9bzP7TLWDjzH9w/XeJByKZu8j+izukSFTfePwbhdcjHHvE/8xDZwZI9
4D9SBsbiJCnvP4YlA0hNWuE/463dJppH6z9uRkid12PiPzLlLDAEqec/gQ+p
PdmD4z8JXGMP2VTlP+nkJK2qkOQ/tvcCaXn95j98Yrxn87PlPztp5IeWyeg/
AMsZcO7R5j9+aLP2KjjqP9k/kke53Oc/93V9xVAK6z/dXCZq+/3oP4sL2MUo
7us/NobVWw0M6j/T0QzqUtLpP4CaSpvRFOs/2kS5WvDV4z/1VtslDTTsP+DN
lUQOr9o/vx+HfxhA7T+mlMX1L5XMP7SQTiSbYu4/AN+qzBAFfj+b7NsW0H/v
PxfQ+4GsM8q/bCpCbOpE8D/13hF3DkzTv58ypHIo1fA/Q6577xSA07/9wJNg
zlvxPwdHuIqlsNO/00Rmdc3f8T98rMtCUIvTv7+cxi8Ib/I/WtAGUqwR07/V
erTRqvTyP3SHcUQuoNK/AS0wGYmF8z+wiGyftR/Zv1dlOUjPDPQ/mnLQ1AkS
4r8mkyWebpH0P4dmkRuUeOe/C5WfmUkh9T/m9PxLZ87svxodp3yMp/U/iH1g
jbC48L8+eTwFCzn2PzGOdPPUO/O/28q0tOLH9j8mv81nlQ/zv6KiuksiTfc/
XchACQ7B8b9/Tk6Ind33P+G7GytTVvC/hoBvrIBk+D+2dLLwmkLtvwaoc/e8
6Pg/XILwMsCn6b+cowXoNHj5P13KuLGAvuW/XCUlwBT++T84m2lM5RLmvzJ7
0j0wj/o/GWHLAVLd57+AxmLipB37P3eWlRden+m/+ZeAboGi+z9UaXNt0JLq
v4c9LKCZMvw/ey2czdB1679AaWW5Gbn8P5XHd+6zSey/DmkseNVK/T+m431J
2bXmv1Ve1l3q2f0/snBxbaA94L/G2Q0rZ1/+P0/UVYrraNS/TSnTnR/w/j/Y
W33Rla+6v/7+Jfg/d/8/IHHlGX+/uD+2hub2////P5Cih1UyM9M/lvsHHA==

                   "]]}}}, {
               DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                  AbsolutePointSize[6], "ScalingFunctions" -> None}, 
                PlotRange -> {{0., 2.}, {-1.2021073827717255`, 
                 1.2398948376207295`}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "2.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["1", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> 
        Baseline], DynamicModuleValues :> {}], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->("InterpolatingFunction[{{0., 2.}}, <>]"& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.6630803587556963`*^9, 3.6630803739907937`*^9}, 
   3.6630809505634375`*^9, 3.663081019737167*^9, 3.663081151524626*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "data", "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"EulerSignal", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{3.6630811718693557`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQPGYHDZftZMENhp7/9S3/z9MRj/pH1n4/arQtmX
7E2g6lZ9mT67/PFLqPxNe5/vedeCWb7YQ0x7AKU/QNU/tk/bvaqy5OoT+/Q0
EHhmvwZF/0v7H5/55u3JeGN/9gwIvLEPgdoPM8cQYu9+iPqP9kkQ+f0Q8z/b
90Lctx+i/wvMffsh9n2DuW8/xLwf9iwQc6Hm/YS5D2reb/tlUP0Q8/7Y/4K4
D2reP/sUqP3Q4HPQh4YLAOq4oKs=
       "]]}, {}}, {}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVV3k4lG8XFkJZikpJ2RIiUZYkHCmyr/mlQioqKtGmIlEp2UkSsqdIWcqS
[encoded data, 13260 characters]
z7dpHLyRFpxbW1uDtsfmSoc0MPgfq5WxVg==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 2.}, {-1.2510565162951535`, 1.2510565162951535`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.663080961579582*^9, 3.6630810213934946`*^9, {3.6630811535090947`*^9, 
   3.663081173322527*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Use step-functions", "Section",
 CellChangeTimes->{{3.663080233637317*^9, 3.6630802550602007`*^9}, 
   3.663080396569996*^9, {3.6630808727785454`*^9, 3.6630808884824104`*^9}, {
   3.6630811978705797`*^9, 3.663081215510948*^9}}],

Cell["good to approximate the integral!", "Text",
 CellChangeTimes->{{3.6630804049766436`*^9, 3.663080456604082*^9}, {
  3.6630807726648445`*^9, 3.663080849668091*^9}, {3.6630808964515314`*^9, 
  3.6630809349689746`*^9}, {3.6630812332774105`*^9, 3.6630812464186563`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StepSignal", "=", 
  RowBox[{"Interpolation", "[", 
   RowBox[{"data", ",", 
    RowBox[{"InterpolationOrder", "\[Rule]", "0"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6630802600135603`*^9, 3.663080267295153*^9}, {
  3.663080357161897*^9, 3.6630803708031645`*^9}, {3.6630809383597517`*^9, 
  3.663080949407151*^9}, {3.6630812178547897`*^9, 3.6630812189329805`*^9}, {
  3.663081251012622*^9, 3.66308125185641*^9}, {3.663081557511367*^9, 
  3.6630815798089514`*^9}, {3.663081650499782*^9, 3.663081651671713*^9}, {
  3.6630817982878685`*^9, 3.6630818424618244`*^9}, {3.6640467400209265`*^9, 
  3.6640467455315638`*^9}}],

Cell[BoxData[
 TagBox[
  TemplateBox[{RowBox[{
      StyleBox[
       TagBox["InterpolatingFunction", "SummaryHead"], 
       "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{Typeset`open$$ = False}, 
       PanelBox[
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{}, {}, {
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJxTTMoPSmViYGCwAWIQveiW95RPRkl2/i/1zd8fu2xfc7rJMHPjAnsY37ji
xA+l1I1wvs/b5Rf5b+y072zcflUo+5L9z5joHneBgwh+cmBMSt9RON97zuaM
A/tP2q/6Mn12+eOX9l6lLQt/ep2D8zlqt3HUJVyE80VuPLgnVwq053vetWCW
L/ZlzU7e67ZdhfMb3W+F3r14Hc7Pf/j3d8Gjm/YMYPDBfsvpCIvP8nfg/EXn
XgqJmt+D8z8L3Dw4yfaBfdruVZUlV5/Yt6kye/hGPYTz89w85l5PfgTnN/Kv
tL3Z/Nh+DdR9L5+orF014QmcX5O0J/3z5qdwPsNpyYJ3F5/Z//jMN29Pxhv7
m/aT3HfeeQ7n341Ry/r99wWcb9Z2NZqX55V9CDR8G2Z5zb4o8hrO/xp2W5XX
5A2cv1++vV7C4a29oTEIXN6/ZYKfyuykd3D+7De3xS7Uv4fzc7Sccl65fLBP
gujfP99oSZHGVQT/74HJCeeiP8L5l13SSs/e/2jfC4m//fvnHNPnyP8E51+t
2nJx1RcEn1HXQLKz9TMs/vaHp1p6nOf5AuerTVadlzcRweeeOn+mp+JXWPzt
l5JdXtOzHMG3q7Rh5bb8BuffPrVly6Pj3+xZIPG3f9GiXd5Kvt/h/Ho/v465
dxH8tob8NQ0pP2Dxt59tRfH3PS8Q/DmLWV+YVPyE82NUVQ+I/PtpvwzqPqPq
S7YG/b/g/IZjSY+WyP6G839Ob8hrXPTb/hck/va32+osmGn0B853yEzdKbkT
wefL1Km46vXXPgUavqFx12Jf3UTwj93k1U6P/wfn+2peniv/4Z+9PiT+7P/9
U/1hX/4fzt/W9uzb//8IPgDdywA8
                   "]]}}}, {
               DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                  AbsolutePointSize[6], "ScalingFunctions" -> None}, 
                PlotRange -> {{0., 2.}, {-1.2510565162951535`, 
                 1.2510565162951535`}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "2.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              GraphicsBox[{{{}, {}, {
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJxTTMoPSmViYGCwAWIQveiW95RPRkl2/i/1zd8fu2xfc7rJMHPjAnsY37ji
xA+l1I1wvs/b5Rf5b+y072zcflUo+5L9z5joHneBgwh+cmBMSt9RON97zuaM
A/tP2q/6Mn12+eOX9l6lLQt/ep2D8zlqt3HUJVyE80VuPLgnVwq053vetWCW
L/ZlzU7e67ZdhfMb3W+F3r14Hc7Pf/j3d8Gjm/YMYPDBfsvpCIvP8nfg/EXn
XgqJmt+D8z8L3Dw4yfaBfdruVZUlV5/Yt6kye/hGPYTz89w85l5PfgTnN/Kv
tL3Z/Nh+DdR9L5+orF014QmcX5O0J/3z5qdwPsNpyYJ3F5/Z//jMN29Pxhv7
m/aT3HfeeQ7n341Ry/r99wWcb9Z2NZqX55V9CDR8G2Z5zb4o8hrO/xp2W5XX
5A2cv1++vV7C4a29oTEIXN6/ZYKfyuykd3D+7De3xS7Uv4fzc7Sccl65fLBP
gujfP99oSZHGVQT/74HJCeeiP8L5l13SSs/e/2jfC4m//fvnHNPnyP8E51+t
2nJx1RcEn1HXQLKz9TMs/vaHp1p6nOf5AuerTVadlzcRweeeOn+mp+JXWPzt
l5JdXtOzHMG3q7Rh5bb8BuffPrVly6Pj3+xZIPG3f9GiXd5Kvt/h/Ho/v465
dxH8tob8NQ0pP2Dxt59tRfH3PS8Q/DmLWV+YVPyE82NUVQ+I/PtpvwzqPqPq
S7YG/b/g/IZjSY+WyP6G839Ob8hrXPTb/hck/va32+osmGn0B853yEzdKbkT
wefL1Km46vXXPgUavqFx12Jf3UTwj93k1U6P/wfn+2peniv/4Z+9PiT+7P/9
U/1hX/4fzt/W9uzb//8IPgDdywA8
                   "]]}}}, {
               DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 3.5 CurrentValue["FontCapHeight"]/
                   AbsoluteCurrentValue[Magnification]}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                  AbsolutePointSize[6], "ScalingFunctions" -> None}, 
                PlotRange -> {{0., 2.}, {-1.2510565162951535`, 
                 1.2510565162951535`}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "2.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["0", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> 
        Baseline], DynamicModuleValues :> {}], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->("InterpolatingFunction[{{0., 2.}}, <>]"& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.6630803587556963`*^9, 3.6630803739907937`*^9}, 
   3.6630809505634375`*^9, 3.663081019737167*^9, 3.663081151524626*^9, 
   3.6630812197455015`*^9, 3.6630812587004623`*^9, {3.663081572292946*^9, 
   3.663081580402708*^9}, 3.6630816527967453`*^9, {3.663081818241937*^9, 
   3.663081825554777*^9}, {3.664046741692859*^9, 3.664046746359706*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "data", "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"StepSignal", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{3.6630811718693557`*^9, 3.6630812564191084`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQPGYHDZftZMENhp7/9S3/z9MRj/pH1n4/arQtmX
7E2g6lZ9mT67/PFLqPxNe5/vedeCWb7YQ0x7AKU/QNU/tk/bvaqy5OoT+/Q0
EHhmvwZF/0v7H5/55u3JeGN/9gwIvLEPgdoPM8cQYu9+iPqP9kkQ+f0Q8z/b
90Lctx+i/wvMffsh9n2DuW8/xLwf9iwQc6Hm/YS5D2reb/tlUP0Q8/7Y/4K4
D2reP/sUqP3Q4HPQh4YLAOq4oKs=
       "]]}, {}}, {}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJxN1nk41dkfB/BbSUUoNcKUECplQtzSxLddpAUtapIQoskSyVpRJEW2LNHN
lsYyaEaWyCWyhOxLxhKhm2xZc3H9Zn7VeXf+Oc/r+TznPOc8z1neEkZWOiZz
aTTa6jk02n+9pgmrOu+jidrhj5u2DBbVUjfc7jh4iwRR333OblDktkgs8cIg
jaihz2nEjGxue+ct6cRK7ws0uV0ziGftJZ+Vrc4kfs3jttr/JZx6NLVuZFkW
8X1G++3jJrDX7itdC3xhJxY/lZWeRd12y6gXvFBDXfSJC7Noh88qqo3+vPA5
8V23zIcKgTnEGVWK6upiTOLmsW1MW76XxHo3WpoL7hQStx1yH/zS/Yr4nOg6
rl92FBOvpTn77u+He7srhI0flBCX6U3oDw3BSWXiMa7qpZhv3YVRcX14lcez
vYWX4IaO2WAzL9hXTZPFwyilEkZDwq+8/0hxJtq8tUthq6e2cqGjsLyE9FS5
UznxsF9DyZw5lcTi80V0/mirIi7JL2JWbq8hzhG+8jEvAE61WrvsLxZ80SNQ
/xcOLBs++yRhWS3xwjjlivNi8IfUC8My6+Gi7KgV3ZtrKa0JywZdrlEqtqhx
e4waLDacUh1uDoeu8jINCoKvl7Gy7HfUEZs7avCd7IPv56tyz5NrIM5fpDib
dLGReFuq0DWvn5uI045PcYxL4aH4/lxt8bfEcjPtV6krcJB6G32VOzzt3zLA
vgufa2mOawqBy2XenkmPfkvR/t+GqPDs+jc2mbDFkRo1uTfwQqcysdhJOC6m
kCMq3Uw80pJ3JMP8H+IdQi+idZNbiNMHyuV8+lqJ5YpbMotk24ldOMf0hd3g
cuXKORaNcPrpM3SlTjjyRr8Fpw/2TnB5VDIBP2fNt9CY844yzU5wtKvvomIF
7jOWLYZ96VK1rUKw0c1d2y9thJVrzj7m3gXfXNSsoRcK1+3QHYgfgCOlDd4x
73UQ/85zoaZevpOYS02GT8oLjrDpUL/UDrur+TXsHYPP81ImIrzvif+xCd44
Twg+1NQ/0icOe90JazSUgfPV9mY3bIDZn4cYBxRgpccR7nn091TSt/NPo9iP
zIzgsqYTL/h94XsCepWOKl3Euvv0Orq6YHrknRORUj3E4jKn27W2wbxJG80m
D8O0weWJlafgcYWZgccmsLXu5yVLL/RQX0b4GTnn+6hPdt2KLtawafDbox8u
w+8yKux1nOH0AkvPxDj4TqVAMFcNTP+g/Sx93QeM5wTWnb8GG8Uq5FASLOJu
jcoYoQK4SV/35CvRj8SvbRr57S7B+0dvdZu7wsX2W3MMvGDuTL8nzT7wvklW
wLFA2GPbzqtVoXChc5j5AcZH6ui3/yfvOltoSxr8wuO3QsnXcPq9VavZY3Bq
WLtjtUQvsay/jdtMBfzYa97t9U6fiA+OJ6uUiPYRjxmf6jXNhu2XTS1ryoPH
X4arahT9UL+03ex52Q91iVa/DdV9lMLm/1otc+K6WBdfC/yl3WDLUA88+bCz
NW0aZv9mctNRsJ94ptGieq4aTDtqLXbXHObWcs5k5MG8ezx1nq4YIN6T8GyT
xnPYZUn34o7Tg8TGifkaQUmw5j6Gp/o0PL2Arh/17ztj9HV/zLq+lRNi8+DE
6nn+EfNh9/ReWdGFsPz1zDM/8cFtGp4BSwThX1sl2Nwr4VDrF4Yz0rBOyKh8
rwq8OHcDrfEgLPXgxdWDsbCq/eGZAvYP681v6/l5zWfi3/ksq2wPwFv/Vn71
yADmOjmTVWYL924wTOtwhas4hckTt+DdrPHEuT5wevW6eL4A2Loof21gELw+
+1SccAjcmTIixQj7TPl8zRvMiNi7MWsi4BmXs5nBI/CZY0oViw4ME3v/dFC+
KxJ+Vm8SmDsOeyoddivgGSE+HrjVqkQMzt0l1/N6HSwzLKFfoQjTxNrZB5VH
vucHZrNGROibLXDa5ZP0w9tg3yihusrt8K5JP4HqnfDEEd4DNfvgUP42mRZL
WKU8dW5PMJzkxTud0w+L7zUdC9wzStxNO7Vy5UU4Iefg7tj7sM+D4uOseNja
YafFxlyYNbjaSrUANjTj2B4qgcViLo43vIab21ocDCpGv+cLZrCo1tSHSljn
eLardQ28Z6/DrYAWWFlJ2T+tB/YONJTbSB8jbh/2KY3xgE0DrZ60/QP3bdb2
EFEcJ6593edP3wc/N/Ri6J6C7dRTOk4ZwL/INUgZnYN5I82Luk3HKa6veYLJ
EpwxMzeHX3n4Leq/AEd/WZNobQkLFdooXHOAb99jZvi4w3ovxquKE2CZT3K9
c2rhsVvaZ1RkJ4gLpS7XWLvBGUcq6OsT4AQX6fCOGjgmQLtC9QMc8YfrbNgU
/NuGAg9pDiyavHDxU9qX7/mA2Sx/KGD7PDjs70DhkvmwcJaYdDsPHJwbrzAu
AAeUMjWlROF7dfXGOlIwtbzMSdYOHtTN859bCFfVWfQ+FJ0k/uvYT7tVbGAF
1ZwmXWc4VcrY0tIDtg6lZzl7w5sW83DdvgfzF9nGCwTAA9daDwUHwW9U1EdX
hsDJI6lhMWGTVNz3+/eSU9j0J5zgrzXE9xKO28Ta59ALx1TceNgpyCau0LS+
62QBTxSfdhZ8CV9yGhMR7If7NvpmLhWeIvY+qRRZLQmv92y+5S8HH1la6LZT
HnaI+NP5syIcuTbkcpTyFMX+mi+YJX9dt9LeCq8o1TV+qgqbtsucWLobjtlq
K+OvB7/zZ44tsYQ/PXW9pZELj1f/KuLOP028eXNKn6sJbB0kmeeYAysHRwv6
5MPsEEmTyCK4NdSIX7YUzguLzvi7DI5+0HlW9c00de7bf+IRLslTXAUveSSZ
0t8MP4iWPLq8G06Jl2QYTsKFqZKsZL4Z4oFcSRcNOryiQnJJ1xlYudrM83oy
rFufNL2SA7Mn4pu01nOIo0WfpLkchSdyZVI7T8JaxnGJ+w1ge2XT+ClDOGqB
zJPkc3D52+7Yf99satPXvEKNJz6OXm4BR47Ghr2zgzVVY/2SrsGMN9FX99yH
hw2ifm9JgPXOrnO8PAUzz6Z48GvNEm/Yoa+6IA4OWc07NjsL/w97Vasr
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 2.}, {-1.2510565162951535`, 1.2510565162951535`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.663080961579582*^9, 3.6630810213934946`*^9, {3.6630811535090947`*^9, 
   3.663081173322527*^9}, 3.6630812228237705`*^9, 3.6630812603099103`*^9, 
   3.663081574808694*^9, 3.6630816555468736`*^9, {3.6630818204451656`*^9, 
   3.6630818284767895`*^9}, 3.6640467489379563`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Spline interpolation", "Section",
 CellChangeTimes->{{3.6630800352221127`*^9, 3.6630800511447425`*^9}, {
   3.663080157446235*^9, 3.6630801589150505`*^9}, 3.6630813225628495`*^9, {
   3.6630813561113224`*^9, 3.6630813610490556`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"HermiteIP", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{"data", ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "3"}], ",", 
     RowBox[{"Method", "\[Rule]", "\"\<Hermite\>\""}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SplineIP", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{"data", ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "3"}], ",", 
     RowBox[{"Method", "\[Rule]", "\"\<Spline\>\""}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.6630802600135603`*^9, 3.663080267295153*^9}, {
  3.663080357161897*^9, 3.6630803708031645`*^9}, {3.6630809383597517`*^9, 
  3.663080949407151*^9}, {3.6630812178547897`*^9, 3.6630812189329805`*^9}, {
  3.663081251012622*^9, 3.66308125185641*^9}, {3.663081557511367*^9, 
  3.6630815798089514`*^9}, {3.663081650499782*^9, 3.663081651671713*^9}, {
  3.6630817982878685`*^9, 3.66308189801134*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"SplineIP", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.664046790096852*^9, {3.6647833178822727`*^9, 3.6647833334332943`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwUmHk4lG8Xx4WiKBUJKbIle8kvIYfKmiQhibIVLWQLpV0khGxFQraQShIl
[encoded data, 23700 characters]
SCWQe93J9DuagUCXGp0I9W7IWj53kmFY/7s2l5iZd8N/zo/frQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 2}, {-1.2559386557495777`, 1.2559417732122378`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6640467940813932`*^9, {3.6647833190922737`*^9, 3.6647833344232955`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"HermiteIP", "[", "t", "]"}], "-", 
    RowBox[{"SplineIP", "[", "t", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6630819115275993`*^9, 3.663081921497873*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwUm3k4Vd0Xx28aiNKgRCEkaUKlSbKkiKikSANJihKZMg9Xxoz3niORsSJD
[encoded data, 34980 characters]
le9TVplDVlA3WWyrT86vWTzGYiGzRXiKz3vW/g/SUAK5
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 2}, {-0.019438037241059636`, 0.019437735171560444`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.663081922107255*^9, 3.664046760470434*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
AutoGeneratedPackage->None,
ScreenStyleEnvironment->"SlideShow",
WindowToolbars->{"RulerBar", "EditBar"},
WindowSize->{1473, 821},
WindowMargins->{{114, Automatic}, {Automatic, 95}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PageHeaders->{{Inherited, Inherited, 
   Cell[
    TextData[{"Impulz\[IAcute]v jelens\[EAcute]gek matematikai modelljei"}], 
    "Header"]}, {
   Cell[
    TextData[{
     "Adatbevitel, \[AAcute]br\[AAcute]zol\[AAcute]s, transzform\[AAcute]ci\
\[OAcute]k"}], "Header"], Inherited, Inherited}},
PrintingOptions->{"FirstPageFace"->Left,
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{54, 54}, {54, 54}}},
Magnification:>1.5 Inherited,
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (October 9, 2015)",
StyleDefinitions->"Modelstyle-EN.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "part-1"->{
  Cell[567, 22, 554, 10, 198, "MainTitle",
   CellTags->"part-1"]},
 "SlideShowHeader"->{
  Cell[5243, 173, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[45663, 1042, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"part-1", 246816, 4668},
 {"SlideShowHeader", 246906, 4671}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 554, 10, 198, "MainTitle",
 CellTags->"part-1"],
Cell[CellGroupData[{
Cell[1146, 36, 177, 2, 81, "MainSection"],
Cell[1326, 40, 99, 1, 65, "Text"],
Cell[1428, 43, 809, 25, 73, "Text"],
Cell[2240, 70, 201, 4, 108, "Text"],
Cell[CellGroupData[{
Cell[2466, 78, 126, 2, 97, "Section"],
Cell[CellGroupData[{
Cell[2617, 84, 100, 1, 68, "Subsection"],
Cell[2720, 87, 176, 4, 65, "Text"],
Cell[2899, 93, 731, 24, 65, "Text"],
Cell[3633, 119, 147, 2, 48, "Th-Env"],
Cell[3783, 123, 767, 23, 101, "Text"]
}, Open  ]],
Cell[4565, 149, 103, 1, 68, "Subsection"],
Cell[4671, 152, 106, 1, 57, "Subsection"],
Cell[CellGroupData[{
Cell[4802, 157, 210, 3, 57, "Subsection"],
Cell[5015, 162, 155, 3, 65, "Text"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5243, 173, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[5332, 178, 481, 10, 81, "MainSection"],
Cell[5816, 190, 558, 11, 193, "Text"],
Cell[CellGroupData[{
Cell[6399, 205, 98, 1, 97, "Section"],
Cell[CellGroupData[{
Cell[6522, 210, 232, 3, 68, "Subsection"],
Cell[6757, 215, 354, 10, 51, "Input"],
Cell[CellGroupData[{
Cell[7136, 229, 247, 6, 51, "Input"],
Cell[7386, 237, 25993, 437, 342, "Output"]
}, Open  ]],
Cell[33394, 677, 571, 15, 77, "Input"],
Cell[CellGroupData[{
Cell[33990, 696, 134, 2, 51, "Input"],
Cell[34127, 700, 1239, 31, 341, "Output"]
}, Open  ]],
Cell[35381, 734, 189, 4, 51, "Input"],
Cell[CellGroupData[{
Cell[35595, 742, 198, 4, 51, "Input"],
Cell[35796, 748, 149, 2, 41, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35982, 755, 177, 3, 51, "Input"],
Cell[36162, 760, 225, 3, 41, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[36436, 769, 159, 2, 57, "Subsection"],
Cell[36598, 773, 189, 4, 51, "Input"],
Cell[CellGroupData[{
Cell[36812, 781, 279, 6, 51, "Input"],
Cell[37094, 789, 2191, 57, 149, "Output"]
}, Open  ]],
Cell[39300, 849, 195, 2, 45, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[39532, 856, 107, 1, 57, "Subsection"],
Cell[39642, 859, 520, 22, 46, "Text"],
Cell[CellGroupData[{
Cell[40187, 885, 279, 7, 51, "Input",
 InitializationCell->True],
Cell[40469, 894, 1437, 34, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41943, 933, 537, 16, 51, "Input",
 InitializationCell->True],
Cell[42483, 951, 3095, 82, 341, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[45663, 1042, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[45752, 1047, 370, 4, 97, "Section"],
Cell[CellGroupData[{
Cell[46147, 1055, 490, 9, 51, "Input"],
Cell[46640, 1066, 11051, 218, 106, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57728, 1289, 145, 2, 51, "Input"],
Cell[57876, 1293, 210, 3, 41, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58123, 1301, 356, 9, 51, "Input"],
Cell[58482, 1312, 26517, 446, 341, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85036, 1763, 376, 9, 51, "Input"],
Cell[85415, 1774, 29389, 493, 382, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114841, 2272, 104, 1, 43, "Subsection"],
Cell[114948, 2275, 190, 2, 45, "Text"],
Cell[CellGroupData[{
Cell[115163, 2281, 301, 7, 51, "Input"],
Cell[115467, 2290, 22650, 383, 344, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[138178, 2680, 241, 3, 79, "Section"],
Cell[138422, 2685, 282, 6, 46, "Text"],
Cell[CellGroupData[{
Cell[138729, 2695, 344, 7, 50, "Input"],
Cell[139076, 2704, 11063, 221, 103, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150176, 2930, 324, 9, 50, "Input"],
Cell[150503, 2941, 14967, 258, 340, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[165519, 3205, 233, 3, 79, "Section"],
Cell[165755, 3210, 271, 3, 57, "Text"],
Cell[CellGroupData[{
Cell[166051, 3217, 644, 11, 63, "Input"],
Cell[166698, 3230, 10275, 204, 129, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[177010, 3439, 347, 9, 63, "Input"],
Cell[177360, 3450, 4671, 88, 424, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[182080, 3544, 239, 3, 79, "Section"],
Cell[182322, 3549, 930, 20, 77, "Input"],
Cell[CellGroupData[{
Cell[183277, 3573, 270, 7, 51, "Input"],
Cell[183550, 3582, 25237, 425, 375, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208824, 4012, 306, 8, 51, "Input"],
Cell[209133, 4022, 36668, 612, 336, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
